Imports System.Runtime.Serialization

<DataContract()> _
Public Class Reference

    <DataMember()> _
    Public ReferenceId As Guid = Guid.Empty
    <DataMember()> _
    Public ReferenceLSID As String = ""
    <DataMember()> _
    Public Citation As String = ""
    <DataMember()> _
    Public FullCitation As String = ""
    <DataMember()> _
    Public ChangeDate As DateTime = DateTime.MinValue
    <DataMember()> _
    Public ChangeUser As String = ""

    <System.ServiceModel.OperationContract()> _
    Public Shared Function CreateLSID(ByVal refId As Guid) As String
        Dim lsid As String = ""
        If refId <> Guid.Empty AndAlso refId.ToString.Length > 0 Then
            lsid = "urn:lsid:" + NamesGlobal.LSIDAuthorityText + ":reference:" + refId.ToString.ToLower()
        End If
        Return lsid
    End Function


End Class
